﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Public Class clsSettings
    Private ds As New DataSet("settings")
    Private tb_settings As DataTable

    Structure eSettings
        Dim key As String
        Dim value As String
        Dim description As String
    End Structure

    Public Sub New()
        LoadXML()
    End Sub

    Private Sub LoadXML()
        ds.ReadXml(Application.StartupPath & "\resources\xml\settings.xml")
        tb_settings = ds.Tables("setting")
    End Sub

    Public Function GetTags() As eSettings()
        Dim Data() As eSettings
        Dim iRow As Long = -1
        Data = Nothing
        For Each aTag As DataRow In tb_settings.Rows
            iRow += 1
            ReDim Preserve Data(iRow)
            Data(iRow).key = aTag("key")
            Data(iRow).value = aTag("value")
            Data(iRow).description = aTag("description")
        Next
        Return Data
    End Function

    Public Function GetTagValue(ByVal Key As String) As String
        LoadXML()
        For Each aSetting As DataRow In tb_settings.Rows
            If aSetting("key") = Key Then
                Return aSetting("value")
            End If
        Next
        Return ""
    End Function

End Class